home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Trackdisk.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  2KB  |  83 lines
  1. Unit Trackdisk;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tIOExtTD = Record
  8.           iotd_Req: tIOStdReq;
  9.           iotd_Count: LongInt;
  10.           iotd_SecLabel: LongInt;
  11.         End;
  12.  
  13.   tTDU_PublicUnit = Record
  14.           tdu_Unit: tUnit;
  15.           tdu_Comp01Track: Integer;
  16.           tdu_Comp10Track: Integer;
  17.           tdu_Comp11Track: Integer;
  18.           tdu_StepDelay: LongInt;
  19.           tdu_SettleDelay: LongInt;
  20.           tdu_RetryCnt: ShortInt;
  21.         End;
  22.  
  23.  
  24.  
  25. Const
  26.   TD_CHANGENUM = $D;
  27.   TD_REMOVE = $C;
  28.   TDERR_PostReset = $23;
  29.   TD_SECTOR = $200;
  30.   ETD_WRITE = $50003;
  31.   TD_LABELSIZE = $10;
  32.   ETD_SEEK = $5000A;
  33.   TDB_ALLOW_NON_3_5 = $0;
  34.   ETD_MOTOR = $50009;
  35.   TDERR_WriteProt = $1C;
  36.   TDF_ALLOW_NON_3_5 = $1;
  37.   TDERR_BadSecPreamble = $16;
  38.   TD_REMCHANGEINT = $15;
  39.   TDERR_BadSecSum = $19;
  40.   DRIVE5_25 = $2;
  41.   TDERR_BadHdrSum = $18;
  42.   ETD_RAWREAD = $50010;
  43.   TDERR_NoSecHdr = $15;
  44.   TD_NAME = 'trackdisk.device';
  45.   ETD_RAWWRITE = $50011;
  46.   NUMSECS = $B;
  47.   NUMUNITS = $4;
  48.   TD_SEEK = $A;
  49.   TD_SECSHIFT = $9;
  50.   TD_MOTOR = $9;
  51.   TDERR_DiskChanged = $1D;
  52.   TD_CHANGESTATE = $E;
  53.   TD_PROTSTATUS = $F;
  54.   TD_LASTCOMM = $16;
  55.   IOTDB_INDEXSYNC = $4;
  56.   TDERR_NoMem = $1F;
  57.   TDERR_BadUnitNum = $20;
  58.   IOTDF_INDEXSYNC = $10;
  59.   TDERR_BadDriveType = $21;
  60.   TD_GETNUMTRACKS = $13;
  61.   TDERR_BadSecID = $17;
  62.   TDERR_DriveInUse = $22;
  63.   TD_RAWREAD = $10;
  64.   TD_GETDRIVETYPE = $12;
  65.   ETD_UPDATE = $50004;
  66.   TDERR_TooFewSecs = $1A;
  67.   ETD_FORMAT = $5000B;
  68.   TD_RAWWRITE = $11;
  69.   ETD_CLEAR = $50005;
  70.   DRIVE3_5 = $1;
  71.   TDF_EXTCOM = $50000;
  72.   TDERR_NotSpecified = $14;
  73.   TDERR_SeekError = $1E;
  74.   TD_ADDCHANGEINT = $14;
  75.   ETD_READ = $50002;
  76.   TD_FORMAT = $B;
  77.   TDERR_BadSecHdr = $1B;
  78.  
  79.  
  80.  
  81.  
  82. End.
  83.